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B ++ 
; : Facility: rms32 
1 : Abstract: 
§ : routine to perform common setup for a rab function | 
0 4 : Environment: 
$3 5 ; star processor running starlet exec. 
444 ? ; Author: L F Laverdure, creation date: 5-JAN-1977 
00 9 : Modified By: 
$0000 | 4 
0000 41 ; v03-005 RAS0269 Ron Schaefer 21-Mar-1984 
0000 4g : Improve performance y not performing the useless 
0000 43 ; probe of the ERR= or SUC= routines here. 
i464 rf: : Arglist gets probed when those routines are used anyway. 
0000 46: v03-004 DASQOO! avid Solom 2-F eb-1984 
4444 rt : on't call RMSRAISE LOCK unless sharing. 
0000 49: VO3-003 kBT0487 Keith B. Thompson 2=Feb-1983 
4 29 3 Don't take the tite lock out for ISAM 
0000 3g : v03-002 KBT0318 Keith B. Thompson 8-Sep-1982 
44 :? : Remove all SO harben code 
0000 «55: v03-001 KBT0215 Keith B. Thompson 23-Aug-1982 
sti 38 : Reorganize psects 
0000 «458: v02=017 ¢ps0001 C Saether 10-Dec-1981 
0000 59 ; Rename psect. 
0000 60 ; 
0000 61; V02-016 REFORMAT P S$ Knibbe 23-Jul-1980 
0000 66 3 
0000 65 ;-- 
0000 64 
| 
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1. call rm$rabchk to check arglist, set base reqs 
. check for valid isi and set irab and ifab addr 
- check for stream idle and set to busy 
- Clear the sts and stv fields of the rab 
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SETUP FOR A RAB FUNCTION 16-SE®-1984 00:34:55 VAX/VMS Macro Vv04-00 Pa 
RMSRSET = COMMON SETUP FOR RAB FUNCTION =$Fo 138 98: 2:24 CAMS SRCIRMORSET MARS 1 si 
4 -SBTTL RMSKSET - COMMON SETUP FOR RAB FUNCTION ROUTINE 
93 :+4 
9 
9 RMSRSET 
4 RMSRSET_ALT 
0 9 this routine performs common setup for a rab function call 
9 including the following: 
0 
0 
0 
0 
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- set aoy, Sees bit from rab 


4 

5 

6. store the arglist addr and caller's mode in the irab 
7 


and save sp entry value in imp$l paved Je 
- perform additional setups including chécking fac for 
operation and clearing find_last flag 
Calling sequence: 
called via the $rabset macro which expands into: 


bsbw rm$rset 
ebyte function_code 


alternate ener at rm$rset_alt to perform functions 4, 5, 6, & 7 only. 
r7, r8, r9, r19, and rll must be set as per output prior to call. 
Input Parameters: 


sp stack pointer 
ap argument List addr 


Implicit Inputs: 


the in-line l-byte function code. 
the contents of the rab 


Output Parameters: 


rii impure area address 
ri10 ifab address 
r9 irab address 
r8 rab address 


r7 sgt ier 8 mode 
r0 thru r5 destroyed 
Implicit Outputs: 


imp$l_saved_sp is set to the value of sp+4 
the sts and stv fields of the rab are zeroed 
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me ed dd 2d wd st 
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Completion Codes: 


ROPOPOPONY — tt tt ot tt SS Ss 


NINN NSN NSA AAA AAA AAA UMN = 


DWONAULS WN (SO OONA MEW O OONAUES WN OWOONAOUFSWN—O0ORM OO 
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rr 
ma 
AO 


c- 
oe 


SOOCCOOOOO0O0O0O0 O00 OW 09000000 C0 G0 0000 
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none. if an error is detected returns to user (not caller) 
after appropriate cleanup. the user receives a standard 

a error code, in particular, isi, act, and those returned by 
rm$rabchk. 


if all o.k., returns to caller after the 1-byte 
in-line function code. 


Side Effects: 
none 


entry point to rm$rset 
validate rab and perform other basic setups 


RMSRSET: : 


BSBW RMSRABCHK ; valid rab? (exits if invalid) 


NOTE: SETS R11 TO IMPURE ADDR 
r9 to isi 


r8 to rab addr 
r?7 to caller's mode 


get the irab address and check for a valid irab 


BEQL 100$ branch if isi value bad 
CMPW RO ,#IMPSC_ENTPERSEG simple isi case (in 1st segment)? 
BGTRU branch if s 


s 
100$: BNEQ ranch if irab allocated 


: PS 
MOVL MPSL_IRBTBLINK(R11)CR9J,R9 t get irab addres 
BRW ERRISI : error is irab not allocated 


> convert isi value to irab address (general case) 


10$: MOVL #IMPS$L_IRABTBL/4,R0 ; irab table offset/4 
BSBW RMSGTIADR ; get irab addr 
BRB 00$ 3; continue 
15$: BRW ERRBUG : error...invalid irab 
5$: CMPB JRBSB_B1D(R9) , #IRBSC_BID 
BNEQ 5$ 3; branch if valid irab 


set r10 = ifab address 


ya ihicieregintaemeanaaeanaaianesaaaesansitnentbtidiyiceitspatiaitial ae : 
J 15 | 


04 A9 «#OC BA 208: BICB2 #IRBSM_PPF_IMAGE! IRBSM_ASYNC,!IRBSL_BKPBITS(R9); clear flags 


RMORSET SETUP FOR A RAB FUNCTION 16-SEP-1984 00:34:55 VAX/VMS Macro V04-00 P | 
yoo 060 RMSRSET = COMMON SETUP FOR RAB FUNCTION mers 8:23:30 LRMS SRCIRMORSET MAR: 1 tes (2) 
5A 69 00 MOVL IRBSL_IFAB_LNK(R9) ,R10 ; get ifab address 
OB 08 AA pf 8 ee 1656810 (R10) ,AiFOS¢_B10 3 Peally an ifab? 
67 6A 55 6 9 BBS #IFBSV_BUSY, (R10) ,ERRACT ; branch if ifab busy 
4 p++ 
: set busy, checking if already active, and clear async and ppf_image flags 
6A 69 20 €E2 . BBSS #IRBSV_BUSY,(R9) ,ERRRSA ; set busy, branch if busy already 
00000004 00 IRBSM_PPF_ IMAGE = 1@<IRBSV_PPF_IMAGE-<IRBS$L_BKPBITS*8>> 
00000008 3 IRBSM_ASYRC = 18<IRBSV_ASYNC-<IRB$L_BKPBITS*8>> 
0 
0 
0 


57 68 1E€ €0 BBS #RABSV_PPF_IND+<RABSW_TSI*8>,(R8),CHKIND; branch if indirect ppf 


+ 
+ 


alternate entry from rmsOconn here 


set asynchronous flag if required and probe async arg List 
store caller's mode and arglist addr in irab 


RMSRSET_ALT:: 


OOQOOCOCOCOCSCSCOCOoCoOooo 
SV OVOV OV OV OO VIII a a md ed ed eB FTE TYTN ETT ET CTU ETRE TTI ET FRET ETE ETI ET > OOO OO POPIPIPUPIPUIPIPIITI OO COUT 
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3 
3 
3 
003 
003 
003 
003 
003 
003 
; ASSUME RABSL_STV EQ RABSL_STS+4 
08 AB = 7C Z CLRO RABSL_STS(R8) ; zero sts and stv in rab 
004 3 
One 3; perform asynchronous setup 
004 : 
$94 ASSUME RABSV_ASY EQ 0 
07 04 AB «ED BLBC RABSL_ROP(R8) ,50$ ; branch if sync 
be ASSUME IMPS$W_RMSSTATUS EQ 0 
3 ASSUME IMP$V_II0S EC 0 
04 6B «OEY $04 BLBC (R11) ,50$ ; branch if this is a ppf forcing 
094 3 synchronous operation 
094 SSB #IRBSV_ASYNC, (R9) ; flag async operation 
04 : 
: 3; store caller's mode and arglist addr in irab 
4 a 


| 
| 
| 
| 
| 
clear rab$l_sts and rab$l_stv 
| 
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62 50S: 


MOVZBL ooCse} R1 
BEQL . 


BBCC 


CSB 


60$: BBSC 
BBS 


BBSC 


++ 


CHKFAC: BBS 
BBC 


SAVESP: ADDL3 


MOVB 
MOVL 
MOVL 


; cflg (bit 4 set) - clear last-operation-was-a-find flag 


#IRBSV_F IND_LAST, (R9) 


VESP ; 
Ri, ; 1FBSB_ FAC(R10) ,RMSERRF AC ; branch if nee 
#4,SP, 1IMPSL_SAVED_SP(R11) 3; save stack entry value 


{F9Sk._SFS8_PTRCRIO) 

9} OSC _ IDK. 1FBSB_ORGCASE (R10) 
RMSRAISE_LOCK 

RO,ERROR 
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; save cotter s mode 
; save pointer to oret tet 
3; save addr this rab 


; get arte 
; branch if nothing to do 
; branch if no need to clr find_last 


based on bio (bit 3) parameter 


; branch if a block i/o function 
; branch if file accessed 

; for block i/o 

: Cinvalid operation) 

; this is not a block operation so 
; clear block i/o Last 


check for appropriate access for function 
(note: rl now has bit offset to required fac access) 


; branch if es says any fac ok 
ed access not on 


s¢ 
3 Take lock on file if sharing and if not ISAM. 


are we sharing? 
no, no need to lock file 
is this I$ 
f so don't lock 
get lock on the f ie 
get out on error 


vOe~000 


RNSRSET = COMMON SETUP FOR RAB FUNCTION 'S-SEP=1984 10:23:26 ERNSVSRCIAMORSES <MAR: 1 
ue 
: bump return pc past the in-line function byte and return 
6E b6 3 ¢ 108: pest (SP) 
9 
OL 
Rae ; 3 this is an indirect operation on a ppf. set ppf_image flag. 
8098 1 j-- 
ae 6283 $098 : CHKIND: BBCS #IRBSV_PPF_IMAGE,(R9) ,RMSRSET_ALT; say its indirect and 
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branch 
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enone SETUP FOR AR 
RMSRSET = COMMON SETUP FOR RAB FUNCTION - RMS .SRCIJRMORSET.MAR; 1 


22 


ee 
39 5 3 
99 8 3 error returns 
99 ; 
99 40 ;-- 
99 41 
$39 rk ccs RMSERR ACT L d i 
3 stream already active 
05 11 O09 $44 BRB ERROR . 
O0A 45 
BRA rt ERRRSA: 
BRA rf RMSERR RSA 3; record stream active 
FF58° 31 Boas 23 ERROR: BRW RMSEX_NOSTR 
OA 51 ERRISI: 
00A8 25 RMSERR ISI ; invalid isi value 
F6 11. QOAD 5 BRB ERROR 
OOAF 54 
QOAF 55: 
OOAF 356; internal rms problem - irab table pointed to an invalid irab 
OOAF 32/ 3 or irab pointed to invalid ifab! 
OOAF 58 ; 
OOAF 59 
OOAF 60 ERRBUG: RMSTBUG FTL$_BADIFAB 
00B6 61 
0086 306 p++ 
00B6 65 ; 
Boog rt: 3; entry point from rms$delete (attempted delete for seq. file org) 
00B6 66 ;-- 
00B6 67 
0086 68 RMSERRIOP:: 
00B6 69 RMSERR IOP ; wrong type of access re. bio 
0S 11 0088 70 ERROR1 
00BD 71 
0080 Le; RMSERRF AC: : : 
00BD 7 SERR FAC 3 not accessed for function 
FF3B" 31 bors $e ERROR1: BRW RMSEXRMS ; get out 


RM 
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RMSRSET = COMMON SETUP FCR RAB FUNC. ION aot 00:33:32 FRMS. SRCIRMORSET MAR: 1 ’ (8) 
C 77 
C 4 p++ 
¢ 79 ; 
: ? 3 file must be accessed to aliow block i/o 
i has 
A9 22 AA 05 €0 O0C 4 CHKBIO: BBS #1FBSV_BIO, IFBSB_FAC(R10) , CHKFAC ; branch if file accessed fo 
E7 22 AA 06 €E1 Baca 85 BBC #1FBSV_BRO, 1FBSB_FAC(R10) ,RMSERRIOP ; branch if also not block 
OCF 6 3 and record access 
OOCF 87 ;++ 
pace 3 : 
BREE $4 : file is accessed for mixed block and record i/o 
poet 91 ; set the block i/o last flag and also set the ‘switched between block 
OCF 8 3 and record i/o’ flag if Last operation was not a block i/o operation, 
OOCF 93; else clear flag 
OOCF 94; 
Bpee 95 ;<- 
OCF 96 
OOCF 97 CSB #IRBSV_BRO_SW, (RI) 
9¢ 69 27 E2 0003 98 BBSS  #IRBSV~BIO“LAST, (R9) ,CHKFAC 
98 69 28 OC edd 100 BBCS #IRBSV_BRO_SW,(R9) ,CHKFAC : set bro_sw and branch 
00DB «= 401 . END 
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RMORSET 
Symbol table 
$$.PSECT_EP 
SSRMSTEST 
SSRMS_PBUGCHK 


$SRMS~ TBUGCHK 
SSRMS “UMODE 


RM K eenerere 8 


SRABC 
RMSRAISE_LOCK seereeee 


nnnnun 

Oooo 

oO: Oooo 

ODOOoooo 

OOOooooo 

OOooocoeoe 
oocoQo oF 
———— DO 


RMS$"RSA 
SAVESP 


DDDDDDDDD 
lolelelelelelealal a) 
et) — a 


ERRRSA 
FILS _BADIFAB 
BID 


SDOOOOSCSO "BOO OOCOOCOO 


et Pd Et bent Ot Pt Pt 
Bs ns ts Bene De ns ne on 


$V~BUSY 
P$CENTPERSEG 
IMP$L—~IRABTBL 
IMPSL ~IRBTBL INK 
IMPSL~SAVED_SP 


IMPSV— 
IMPSW~RMSSTATUS 
IRBSB 


U 
{RBSV"FIND LAST 
RBSV~PPF_ IMAGE 
RABSL ROP 
RABSL_STS 
RABSL_STV 


RABSV-ASY 
RABSV~PPF_IND 
RABSW- ISI 


SOooOCOoooooooooooooooooooooooOooO 


U x 
RMSERRF AC O0O000BD RG 
RMSERRIOP 00000086 RG 
RMSEXRMS eeereree xX 
RMSEX_NOSTR eeeeteee =X 
RMSGTTADR eterener xX 


Oooooeo 
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Psect synopsis -SEP=1984 16:22:24 (CRMS.SRCIRMORSET.MAR;1 (8) 
bene meee eon ea aware $ 
: Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 

. ABS. 00000000 0.) 00 ¢ QO.) NOPIC USR COGN ABS ' LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

RMSRMSO 00000DB (¢ 219.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC QUAD 

SABSS 0000000 ( 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

$eecerecenws Caner oom ae nae ae me + 

i : Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization — 30 00:00:00.10 00:00:00.9 

Command processing 115 00:00:00.71 0:00:04.5 

Pass 1 271 00:00:07.65 ee SS 

Symbol table sort 0 00:00:01.04 00:00:01.69 

Pass 2 79 00:00:01.66 Bp +88: Oe Oe 

Symbol table output 9 bs BS 0:00:00.09 

Psect synopsis output 2 00:00:00.0 00:00:00.03 

Cross-reference output ; 00:00:00.00 00:00:00.00 

Assembler run totals 50 00:00:11.27 00:00:32.12 


The working set Limit was 1500 pages. 

42299 bytes (83 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 799 non-local and 11 local symbols. 
401 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

21 pages of virtual memory were used to define 20 macros. 


+ 
! Macro Library statistics : 
doe were ee em wee ewe wm eee 


Macro Library name Macros defined 
-$255$DUA28: CRMS.OBJIJRMS.MLB; 1 11 
_$255$0UA28: (SYS.OBJJLIB.MLB; 1 1 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 16 


904 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:RMORSET/OBJ=OBJ$:RMORSET MSRC$:RMORSET/UPDATE=(ENHS:RMORSET) +EXECMLS/LIB+LIBS$:RMS/LIB 
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